module cuty
  !
  ! Fortran Interface for cutyA.s
  !
  !
  ! LICENSE AGREEMENT:
  !
  ! You agree that we don't agree to anything.
  !
  !
  ! DISCLAIMER OF WARRANTIES:
  !
  ! This software is provided to you "AS IS," and the authors and
  ! contributors disclaim any warranty or liability obligations to you
  ! of any kind, implied or express, including but not limited to the
  ! warranties of merchantability, fitness for a particular purpose,
  ! and non-infringement.
  ! 
  implicit none
  interface 
     subroutine initenvc(nx,ny)
       integer,intent(in),value::nx,ny
     end subroutine initenvc
  end interface
  interface 
     subroutine initenvd(nbufj,pjxs,pjys,pjzs,pws,nbufw)
       integer,intent(in),value::nbufj,pjxs,pjys,pjzs,pws,nbufw
     end subroutine initenvd
  end interface
  interface 
     subroutine cpptra(n,pb,i)
       integer,intent(in),value::n,pb,i
     end subroutine cpptra
  end interface
  interface 
     subroutine cpptrax(n,pb,i)
       integer,intent(in),value::n,pb,i
     end subroutine cpptrax
  end interface
  interface 
     subroutine cpptray(n,pb,i)
       integer,intent(in),value::n,pb,i
     end subroutine cpptray
  end interface
  interface 
     subroutine cpptraxy(n,pb,i)
       integer,intent(in),value::n,pb,i
     end subroutine cpptraxy
  end interface
  interface 
     subroutine cpptrb(n,pb,i)
       integer,intent(in),value::n,pb,i
     end subroutine cpptrb
  end interface
  interface 
     subroutine cpptrbx(n,pb,i)
       integer,intent(in),value::n,pb,i
     end subroutine cpptrbx
  end interface
  interface 
     subroutine cpptrby(n,pb,i)
       integer,intent(in),value::n,pb,i
     end subroutine cpptrby
  end interface
  interface 
     subroutine cpptrbxy(n,pb,i)
       integer,intent(in),value::n,pb,i
     end subroutine cpptrbxy
  end interface
  interface 
     subroutine memcp(dst,src,n)
       integer,intent(in),value::dst,src,n
     end subroutine memcp
  end interface
end module cuty
